function x = vect2int(xv,base)
  if nargin < 2
    base = 10;
  end

  xv = real(xv);
  x = 0
  for k=1:length(xv)
    x = x + fix(xv(k)*base^(k-1));
  end
  x = fix(x);

